home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / SAMC0103.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-27  |  2KB  |  89 lines
  1. {$F+}  { -- far code model is required for any functions that }
  2.        { -- are to be used as Event Handlers }
  3.  
  4. Uses
  5.     dos,
  6.     graph,
  7.  
  8.     virtmem,
  9.     teglfont,
  10.     fastgrph,
  11.     TEGLIntr,
  12.     TEGLICON,
  13.     TEGLGRPH,
  14.     TEGLUnit,
  15.     TEGLMenu,
  16.     SenseMs,
  17.     DebugUnt,
  18.     TEGLEasy;
  19.  
  20.  
  21. { -- insert variables here }
  22.  
  23. VAR
  24.   om1, om2 : OptionMPtr;
  25.  
  26. { -- insert procedures and functions here }
  27.  
  28.  
  29. FUNCTION GetMsSense(FS:imagestkptr; Ms: msclickptr) : WORD;
  30.   BEGIN
  31.     SetMouseSense(fs^.x,fs^.y);
  32.     GetMsSense := 1;
  33.   END;
  34.  
  35. FUNCTION InfoOption(FS:imagestkptr; Ms: MsClickPtr) : WORD;
  36.    VAR
  37.       x,y,x1,y1  : WORD;
  38.       IFS         : ImageStkPtr;
  39.    BEGIN
  40.       Hidemouse;
  41.  
  42.       x  := 200;
  43.       y  := 120;
  44.       x1 := x+340;
  45.       y1 := y+100;
  46.  
  47.       PushImage(x,y,x1,y1);
  48.       IFS := StackPtr;
  49.  
  50.       SetColor(White);
  51.       ShadowBox(x,y,x1,y1);
  52.       SetColor(Black);
  53.       OutTEGLtextxy(x+5,y+5,'TEGL Windows Toolkit II');
  54.       OutTEGLtextxy(x+5,y+5+TEGLCharHeight,
  55.           'Jan 1,1990, Program Written by Richard Tom');
  56.  
  57.       ShowMouse;
  58.  
  59.       InfoOption := 1;
  60.    END;
  61.  
  62.  
  63.  
  64. BEGIN
  65.  
  66.    EasyTEGL;
  67.  
  68.    { -- insert the example code here }
  69.    { -- press Ctrl-Break to exit program }
  70.  
  71.    om1 := CreateOptionMenu(@Font14);
  72.    DefineOptions(om1,' Open ', true, NilUnitProc);
  73.    DefineOptions(om1,'Info...',true, InfoOption);
  74.    DefineOptions(om1,'--',     false,NilUnitProc);
  75.    DefineOptions(om1,' Quit ', true, Quit);
  76.  
  77.    om2 := CreateOptionMenu(@Font14);
  78.    DefineOptions(om2,' Memory ',true,ShowCoordinates);
  79.    DefineOptions(om2,' Mouse Sensitivity ',true,GetMsSense);
  80.  
  81.    CreateBarMenu(0,0,getmaxx);
  82.    OutBarOption(' File ',om1);
  83.    OutBarOption(' Utility ',om2);
  84.  
  85.    { -- control is then passed to the supervisor }
  86.  
  87.    TEGLSupervisor;
  88. END.
  89.